home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03012_Script_3012 < prev    next >
Text File  |  1983-01-27  |  1KB  |  54 lines
  1. on startMovie
  2.   
  3.   global disaudio,audio_intro,valore,pallina,audio,pallina_aperta,audio_barrato,lungh_barra,righe_scroll_testo,pezzetto,bloc
  4.   
  5.   set bloc = false
  6.   
  7.   global cursprite,oldm,caricato,anim_loco,valore
  8.   --  UNLOAD
  9.   sound close 1
  10.   sound close 2
  11.   inizializza
  12.   set lungh_barra to 378.0
  13.   
  14.   --  set righe_scroll_testo to the linecount of member "articolo" -10
  15.   --  put righe_scroll_testo , "righe"
  16.   --  set pezzetto to lungh_barra/righe_scroll_testo
  17.   
  18.   set pallina to pallina_aperta
  19.   set audio to audio_barrato
  20.   updatestage
  21.   global lista_curan,lista_curap
  22.   
  23.   put "lista curan ",lista_curan
  24.   put "lista curap ",lista_curap
  25.   
  26.   
  27.   
  28.   if not disaudio and marker(0) = 1 then suono 1,audio_intro
  29.   set caricato to 0
  30.   set anim_loco to false 
  31.   set oldm to 1
  32.   set cursprite to ""
  33.   set the mouseUpScript to ("if the doubleClick=TRUE THEN"&numtochar(013)&" ARCHIVIO"&numtochar(013)&"pass"&numtochar(013)&"end if")
  34.   set the mouseDownscript to "rit"
  35.   set valore to 17
  36.   
  37.   
  38. end
  39.  
  40. on rit
  41.   
  42.   set a to string(the windowlist)
  43.   
  44.   if offset("popup",a)>0 then 
  45.     global olddove,dove
  46.     set dove to olddove
  47.     set olddove to 0
  48.     toglipopinv
  49.     
  50.     pass
  51.   end if
  52.   blocca
  53. end
  54.